home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_10_load 8bit.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  3.1 KB  |  71 lines
  1. global gProject, gCast, gSize, gSelectedSnapshot, gPuppetPal, gPatScrListSelect, gPatternThumbLoc, gPatternScreenBlend, gPatternScreenBoxHeight, gFontListBoxHeight
  2.  
  3. on prepareFrame me
  4.   sprite(1).member.palette = gPuppetPal
  5.   sprite(19).member.palette = gPuppetPal
  6.   sprite(20).member.palette = gPuppetPal
  7.   sprite(44).member.palette = gPuppetPal
  8.   sprite(45).member.palette = gPuppetPal
  9.   sprite(46).member.palette = gPuppetPal
  10.   sprite(235).member.palette = gPuppetPal
  11.   sprite(261).member.palette = gPuppetPal
  12.   sprite(262).member.palette = gPuppetPal
  13.   sprite(263).member.palette = gPuppetPal
  14.   sprite(264).member.palette = gPuppetPal
  15.   if (gProject = "icon") or (gProject = "cursor") then
  16.     sprite(36).member.palette = gPuppetPal
  17.     sprite(37).member.palette = gPuppetPal
  18.     if sprite(36).blend <> 0 then
  19.       myTX = sprite(36).member.image.getPixel(0, 0)
  20.       sprite(1).bgColor = myTX
  21.       sprite(20).bgColor = myTX
  22.       sprite(261).bgColor = myTX
  23.       sprite(262).bgColor = myTX
  24.       sprite(263).bgColor = myTX
  25.       sprite(264).bgColor = myTX
  26.     end if
  27.   end if
  28.   puppetPalette(gPuppetPal)
  29.   if gSelectedSnapshot.palette <> sprite(1).member.palette then
  30.     gSelectedSnapshot = member("snapshot1 - " & gSize, gCast)
  31.   end if
  32.   gPatternScreenBoxHeight = (member("pattern screen list").lineCount * member("pattern screen list").lineHeight) - (4 * member("pattern screen list").lineHeight)
  33.   gFontListBoxHeight = (member("fonts").lineCount * member("fonts").lineHeight) - (5 * member("fonts").lineHeight)
  34.   if gPatScrListSelect = 1 then
  35.     member("pattern screen preview").image.fill(member("pattern screen preview").rect, paletteIndex(0))
  36.     member("pattern temp").image.fill(member("pattern temp").rect, paletteIndex(0))
  37.     member("pattern screen list").scrollTop = 0
  38.     hilite char 1 to member("pattern screen list").text.line[1].length + 1 of field "pattern screen list"
  39.     sprite(235).blend = 100
  40.     put "100" into field "pattern screen opacity"
  41.     gPatternThumbLoc = sprite(159).locV
  42.     gPatternScreenBlend = sprite(235).blend
  43.     gPatScrListSelect = VOID
  44.   else
  45.     sprite(159).locV = gPatternThumbLoc
  46.     sprite(235).blend = gPatternScreenBlend
  47.     put gPatternScreenBlend into field "pattern screen opacity"
  48.   end if
  49.   if the text of field "current font" = line 1 of field "fonts" then
  50.     hilite char 1 to member("fonts").text.line[1].length + 1 of field "fonts"
  51.   end if
  52.   if sprite(47).rect = rect(598, 43, 622, 67) then
  53.     nothing()
  54.   else
  55.     sprite(47).rect = rect(598, 13, 622, 37)
  56.   end if
  57.   if the text of field "font size" > (integer(gSize) * 2) then
  58.     set the text of field "font size" to string(integer(gSize) * 2)
  59.     member("image text").fontSize = integer(gSize) * 2
  60.   end if
  61.   if the text of field "kerning" < -(integer(gSize) / 8) then
  62.     set the text of field "kerning" to string(-(integer(gSize) / 8))
  63.     member("image text").CharSpacing = -(integer(gSize) / 8)
  64.   else
  65.     if the text of field "kerning" > (integer(gSize) / 8) then
  66.       set the text of field "kerning" to string(integer(gSize) / 8)
  67.       member("image text").CharSpacing = integer(gSize) / 8
  68.     end if
  69.   end if
  70. end
  71.